home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / ptrplynt.lha / PTReplay.DOC < prev    next >
Text File  |  1995-09-19  |  3KB  |  123 lines
  1. TABLE OF CONTENTS
  2.  
  3. PTReplay/--about--
  4. PTReplay/--background--
  5. PTReplay/--history--
  6. PTReplay/--interface--
  7. PTReplay/--about--                                         PTReplay/--about--
  8.  
  9.     $RCSfile: PTReplay.mod $
  10.    $Revision: 1.3 $
  11.        $Date: 1995/09/19 17:14:11 $
  12.      $Author: phf $
  13.  
  14.  Description: AmigaOberon interface to ptreplay.library.
  15.  
  16.    Copyright: Copyright (c) 1995 by Peter Fröhlich [phf].
  17.               All rights reserved.
  18.  
  19.      License: This  file  is  freely distributable as long as no
  20.               money  is  made by distributing it.  If you modify
  21.               it   please  let  me  know.   You  may  distribute
  22.               modified versions as long as my original copyright
  23.               is  respected  and  your modifications are clearly
  24.               marked  as  such.   It  may  only  be used in non-
  25.               commercial projects.
  26.  
  27.       e-mail: p.froehlich@amc.cube.net
  28.  
  29.      $Source: Users:Homes/phf/Programming/Development/PTReplay/REPOSITORY/PTR
  30. eplay.mod $
  31.  
  32. PTReplay/--background--                               PTReplay/--background--
  33.  
  34.    PURPOSE
  35.  
  36.     This module provides an AmigaOberon interface to the
  37.     ptreplay.library by Mattias Karlsson / BetaSoft.
  38.  
  39.    NOTES
  40.  
  41.     Remember to check "base # NIL" before making any calls
  42.     to the library.
  43.  
  44.    SEE ALSO
  45.  
  46.     ptreplay.doc
  47.  
  48.    REFERENCES
  49.  
  50.     Aminet: mus/play/PTReplay#?.lha
  51.  
  52. PTReplay/--history--                                     PTReplay/--history--
  53.  
  54.  $Log: PTReplay.mod $
  55.  Revision 1.3  1995/09/19  17:14:11  phf
  56.  Corrected V6 functions, minor changes to Autodocs.
  57.  
  58.  Revision 1.2  1995/09/15  18:18:21  phf
  59.  Adapted to ptreplay.library V6.
  60.  
  61.  Revision 1.1  1995/08/30  06:11:25  phf
  62.  Initial revision
  63.  
  64. PTReplay/--interface--                                 PTReplay/--interface--
  65.  
  66. DEFINITION PTReplay;
  67.  
  68. IMPORT
  69.   E := Exec;
  70.  
  71. CONST
  72.   ptReplayName = "ptreplay.library";
  73.  
  74. TYPE
  75.   ModulePtr = UNTRACED POINTER TO Module;
  76.   Module = STRUCT 
  77.     modName : E.LSTRPTR;
  78.   END;
  79.  
  80. TYPE
  81.   SampleName = ARRAY 22 OF CHAR;
  82.   SamplePtr = UNTRACED POINTER TO Sample;
  83.   Sample = STRUCT 
  84.     name : SampleName;
  85.     length : E.UWORD;
  86.     fineTune : E.UBYTE;
  87.     volume : E.UBYTE;
  88.     repeat : E.UWORD;
  89.     repLen : E.UWORD;
  90.   END;
  91.  
  92. VAR
  93.   base : E.LibraryPtr;
  94.  
  95. PROCEDURE LoadModule(name: ARRAY OF CHAR): ModulePtr;
  96. PROCEDURE UnloadModule(module: ModulePtr);
  97. PROCEDURE Play(module: ModulePtr): LONGINT;
  98. PROCEDURE Stop(module: ModulePtr): LONGINT;
  99. PROCEDURE Pause(module: ModulePtr): LONGINT;
  100. PROCEDURE Resume(module: ModulePtr): LONGINT;
  101. PROCEDURE Fade(module: ModulePtr; speed: E.UBYTE);
  102. PROCEDURE SetVolume(module: ModulePtr; speed: E.UBYTE);
  103. PROCEDURE SongPos(module: ModulePtr): E.UBYTE;
  104. PROCEDURE SongLen(module: ModulePtr): E.UBYTE;
  105. PROCEDURE SongPattern(module: ModulePtr; position: E.UWORD): E.UBYTE;
  106. PROCEDURE PatternPos(module: ModulePtr): E.UBYTE;
  107. PROCEDURE PatternData(module: ModulePtr; pattern, row: E.UBYTE): E.APTR;
  108. PROCEDURE InstallBits(module: ModulePtr; restart, nextPattern, nextRow, fade:
  109.  E.UBYTE);
  110. PROCEDURE SetupMod(moduleFile: E.APTR): ModulePtr;
  111. PROCEDURE FreeMod(module: ModulePtr);
  112. PROCEDURE StartFade(module: ModulePtr; speed: E.UBYTE);
  113. PROCEDURE OnChannel(module: ModulePtr; channels: LONGSET);
  114. PROCEDURE OffChannel(module: ModulePtr; channels: LONGSET);
  115. PROCEDURE SetPos(module: ModulePtr; position: E.UBYTE);
  116. PROCEDURE SetPri(priority: E.BYTE);
  117. PROCEDURE GetPri(): E.BYTE;
  118. PROCEDURE GetChannel(): E.UBYTE;
  119. PROCEDURE GetSample(module: ModulePtr; number: E.UBYTE): SamplePtr;
  120.  
  121. END PTReplay.
  122.  
  123.